home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  282 b   |  12 lines
  1. on GetRandomListOfTen iChoiceSize
  2.   set list to []
  3.   repeat with n = 1 to 10
  4.     set iNewNumber to random(iChoiceSize)
  5.     repeat while getPos(list, iNewNumber) <> 0
  6.       set iNewNumber to random(iChoiceSize)
  7.     end repeat
  8.     add(list, iNewNumber)
  9.   end repeat
  10.   return list
  11. end
  12.